home *** CD-ROM | disk | FTP | other *** search
/ CrystalVision Software Se… Wiki Wonder - Wikipedia / CrystalVision Software Services 703: The Wiki Wonder - Wikipedia.iso / 0703 / Educate / Complete Calc / Setup.exe / boot.tcl < prev    next >
Encoding:
Text File  |  2006-10-25  |  1.1 KB  |  45 lines
  1. proc installkitInit {} {
  2.     rename installkitInit {}
  3.  
  4.     namespace eval ::installkit {
  5.         variable installkit
  6.  
  7.         variable root    "/installkitvfs"
  8.         variable wrapped [file exists [file join $root main.tcl]]
  9.  
  10.         namespace eval Windows {}
  11.     }
  12.  
  13.     variable ::installkit::root
  14.  
  15.     set ::tcl_library [file join $root lib tcl]
  16.     set ::tcl_libPath [list $::tcl_library [file join $root lib]]
  17.  
  18.     set ::auto_path $::tcl_libPath
  19.     lappend ::auto_path [file join $root lib tk]
  20.  
  21.     if {![info exists ::parentThread]} {
  22.         set ::tcl_interactive [string equal $::argv0 [info nameofexecutable]]
  23.  
  24.         if {$::installkit::wrapped} {
  25.             if {!$::tcl_interactive
  26.                 && [file normalize $::argv0] ne [info nameof]} {
  27.                 set ::argv [linsert $::argv 0 $::argv0]
  28.             }
  29.  
  30.             set ::tcl_interactive 0
  31.  
  32.             set ::argv0 [file join $::installkit::root main.tcl]
  33.             info script $::argv0
  34.         }
  35.     }
  36.  
  37.     package require installkit
  38.  
  39.     package require zlib
  40.  
  41.     package require zvfs::zip
  42. }
  43.  
  44. installkitInit
  45.